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ABSTRACT 


This thesis deals with the numerous problems encountered 
in contextual analysis of the ACTION part of PASCAL programs, 
on the basis of the context synthesized during the declaration 
part. The principal issues tackled are type compatibility, 
label processing and aliasing. Special cases concerning 
modification of controlling elements within control structures, 
type compatibility of recursively defined data structures and 
illegal uses aTe also solved. 

The machanism used for solviiag the above problems is an 
extension of L~Extended Attribute grammars. This provides a 
formal basis for our solution, leading to a systematic, 
modularised development which is amenable to a formal proving 
technique. The end result is a working context sensitive 
analyser meeting the specifications defined in the language 
standard. 
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CHAPTER I 


PR0L0GI3B 

1*1 MOTIVATIOR 

We are interested in the systematic deTelopment of 
processors that perform, context sensitive analysis (OSA) for 
programming languages. To this end, vse must show that it 
correctly accepts or rejects an input string, based on the 
specification of the semantics of the language* 

The strong formal background of Context-Free Grammars 
(cfg) for exact syntactic specification of programming languages 
makes automatic generation of parsers feasible task. However, 
inspite of the presence of various mechanisms for formal 
specification of context sensitive aspects of a programming 
language, none of them is strong enough to produce an automatic 
context sensitive analyser generator system - this is so because 
the transformation rules for conversion from such a formal 
specification to programs are still not well established. We - 
obtain a formal ^ecification for the different context 
sensitive issues of a programming language in a manner suitable 
for ready inplementation. The formal specification facilitates 
the proof of correctness of the developed program since the 
validity of our basic . transformation rules ensure the correctness 
of the entire program* The formal specification even reveals 
the hidden semantic irregularities of a programming language and 
thus helps in correct implementation of the defined language. 



1,2 Introdaction : 


We choose tjbe programming language SlAHDAEa) PASGiL, 
ISO defined [SIGSO]]] for the systematic development of CSA phase 
of its compiler, 

Shis thesis deals with numerous problems encountered 
in contextual analysis arising in the ACTION PART of PASCAL 
programs based on the context already synthesized during 
declaration part (PUK 81) of tbe PASCAL program. Corresponding 
to the use of an object in the ACTION PiiRT of a PASCAL program, 
the contextual analysis is performed on the attributes of the 
object defined in the context synthesized during DBCLiE-ATION 
PART and the validity of the use of the object, as per its 
definition, is determined. 

The main problems encountered in CSA are concerning 
the issues of type compatibility, label processing and illlilSING. 
We also discuss certain special cases concerning modification 
of controlling elements within control structures, type 
compatibility of recursive data structures, illegal uses etc. 

The CSA phase of our con^iler uses the formal 
specification mechanism of L-EAG’s» We have chosen this 
mechanism for formal specification as it is best suitable, out 
of a few available. The work presented in this thesis is a 
completion of the task undertaken in (PCX 81). 



1,3 S tructure of the thesis . 

Chapter 2 discusses various issues concerning extension 
of context and the problem of compatibility .Chap ter 3 deals 
with label processing -problem definition and its solution. In 
Chapter 4 we have described the problem of - its 

causes and detection. We discuss a few special cases of OSA 
in Chapter 5, Finally Chapter 6 describes possible extension 
to our scheme and scope of further work and inprovement s. 
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cHiip-m II 

EXTEKSIOa OF CONTEXT ilMD SHB PEOBLElVl OF GOIgAiTIBILlTY 

2.1 Processi3ag with statements to extend the locai- context : 

2.1,1. Structure of the problem ; 

(a) A statement of form ; 

with.Al, il2, iln do SlilfSiyiEIIf 
must be treated as : 
with A1 do 

with A2 do 

w 

with An do STAmiENl 

(b) fhe identifiers belonging the local environment 
of a record encountered in a WITH statement must be accessible 
to the WLTE statement and they override the visibility of 
context built up till now, 

2-.1.2 Solution : 

Each occurrence of a record in a EEGOED ViiR-LIST of 
the WITH statement is considered as the start of a new block 
whose local environment is same as the local environment of the 
record. The life time of this temporary extension cf context 
is till the end of the WITH statement. 

It is implemented by putting the local environment of 
the RECORD ViiRIiVELE on the top of the stack (SIMBOl TilELE) and 
keeping the name of the RECORD VARIAELE in the SU'ISLICLHPO . 
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^ ^ -VPQ Oonipatibj.lity and operator Identification Proble m, 

2,E,1 Structure of problem ; 

She problem of type compatibility arises during the 
processing of procedure (function) invocations* It 
also occurs, with possible variations in the 
processing of operands in expressions and in 
assignment statements. The latter two issues givfe 
rise to the related problem of operator Identifica- 
tion wherein we discriminate between the various 
meanings of overloaded operator symbols. 

2. 2, 1,1 Type compatibility for user defined procedures ; 

(functions) is defined as : | 

(1) Var parameter : 

(a) Actual parameters shall be fAEl-ACCBSS (not 
an expression), 

(b) The components of variables of any type 

designated packed shall not be used as i 

actual variable parameters. 

(c) The formal and actual parameters shall be i 

of same type . | 

(d) If the formal parameter type is a COKPORMANT | 
ABRAY SCHEMA (CAS), then an actual parameter j 

, j 

should be conformable with GAS* £[SIG 80][] . i 

( 2 ) 7alue parameter : | 

I 

(a) Actual parameter shall be an expression I 

whose Value is assignment coiipatible [SIG 80]]] i 
with the corre^onding formal parameter. 
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(3) Procedural parameter and functional 
parameter QSIG 8O3 • 

2, 2, 1,2 lype compatibility issues for user defined procedures 
(functions) has to be augmented to accomodate the 
special features of the parameters of system defined 
procedures (functions) and operators. These features 
are as follows 1 

Qla-ss of Parameters : 

(a.l) Polymorphic : Pormal parameter is defined 
to have set of types and type of actual 
parameter must be compatible with a type 
in the set. 

Example : Read (a) 

where type of a can be integer, real, 
char or string. 

(a. 2) P olyad ic : Zero or more instances of an 
actual parameter is allowed for one 
formal parameter. 

Example : Readln; Readln (a,b,c)5 
(a.3) Eef ault : There may or may not exist an 
actual parameter corresponding to the 
default parameter. If there is no actual 
parameter then the default value of 
parameter is chosen. 

Example s Type a ; integer jEUMMY: Textfilej 

' f 

* 

Read (a)| 
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(* Read from the file INPUT (default value)*) 
Read (UUTffl/lY, a) 

(* Read from the file DTMtl *)• 

^o^matted paraioeter ; Pormatti]ng of an actual 
parameter may be allowed. 

Example : 1 /VRIIB (X : Is J ) 

(b) Criterion of t 3 ?pe con^atibility in addition to that 
defined for user defined functions, 

(b.l) Glass equivalence i 

If TYPEACTUilTAG (Def ined in the Domain 
TYPEAOTUALniPO ) in the types of formal and 
corresponding actual parameter is same then 
they are class ec^uivalent. 

Example : Reset (PIIST) 

Where PILET should be of file type. There is 
no restriction over the component type of PILET, 
(b,2) Relaxed Ordinal Equivalence i 

Types Tl and T2 are compatible under this 
equivalence rule if both Tl and T2 denote 
the same ordinal type. The rai^ges of values 
spanned by Tl and 12, may not be the same, and, 
are of no consequence. 

Example T, 1 t 

VARA i INIEGERj B : I..IO 5 

BOOL : BOOLEAN: 

■' ♦ 

« ' 

■ ' ■ . • 


BOOL : = A < = B| 
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A and B are compatible tjpesCfor operator < =) aS they 
are of same ordinal type, namely lUlEGER, though A 
can assume any value in the set of integers whereas 
range of B is restricted from 1 to 10, 

(b,3) R elax range Oompatibillty j 

Types T1 and 12 are compatible under this compatibility 
criterion if one of the following is satisfied, 

(1) 11 and 12 are ordinal types and they are compatible 
under EELiXSE OEDINiil equivalence criterion, 

(2) 11 and 12 are SEl types. Base types of 11 and 12 
are ordinal types and thej’- are compatible under 
the criterion of REljilXED OREIEjll equivalence. 

(3) 11 and 12 are the same type, that is neither a 
file type nor a structured type with a file 
component (Ibis rule is to be interpreted 
recursively), 

(b,4) Assignment Compatibility ; 

A value of type 12 is designated assignment conpatible 
with a type 11 if any of the following statement is 
true : 

(1) 11 is the EEiL type and 12 is the lElEGER type. 

(2) 11 and 12 are compatible under the criterion of 
RELilX'RiiEGB compatibility, 

(b,5) MEMBERSHIP equivalence : 

Here formal parameter type is set of values, while actual 
parameter is a value. Actual parameter value is 
required to be member of this set. 



9 


Examp3»-e - g.2 

lype Lilt = 1».35 
SEC = EBGOED 

A : INTEGER j 
Case L : Lilt 01 

1 I ( ); 

2 : (B ; EEAL)? 

3 ; (G : CH^) 

El© I 

VAR P : " RECj 
KEW (P,2) 

I! he formal parameter corresponding to second actual 
parameter is a set of three values i*e , , 1,2 and 3, 
She second actual parameter is compatihle with the 
corresponding formal parameter as it is a member of 
the set {1,2,3}. 

Membership equivalence is invoked only in the type 
compatibility checking of parameters for the system 
defined procedures EEW and DISPOSE. 

(b.6) SIRGCLASS equivalence : The actual parameter is 

compatible with the corresponding formal parameter 
if it is of 'STRUG type' i.e., PACKED jffiiUlT 
l^l,. STRGLGTH] of GHiiR, where STRGL GTE > = 1. 

STRING type is allowed as valid operand type in 
relational operators (except 'IN') and in the system 
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defined procedures ’WRIfB* andMIRIOMLN' , STRG class 
compatibility is invoked only in these cases. 

(b.7) ARRAY class 

Hypes HI and H2 are compatible under this rule if the 
following are satisfied-. 

(1) HI and H2 are Array types. 

(2) iiRRilY IKDBX types of HI and H2 must be conpatible 
under RHIAXEI)' ordinal eq.uivalence . 

(3) iffiRAY G0I.TP0RB1H types of HI and H2 must be 
compatible under SHRICH type equivalence. 

iiERAY OL^ISS compatibility is invoked only in 
the type compatibility checking of parameters for the 
system defined procedures PACK and UNPACK. 

(c) HYPE Propagation : 

Sometimes the type of actual parameter must be 
compatible with the type (or the type derived from 
the type) of a parameter in the same parameter list. 
Hhere fore , PROP AGAHIOK type of the next parameter is 
derived from the type of the current p arame ter , 
Derivation functions for deriving propagation types 
are as follows : 

(c.l) HYPE PROP : PROPAGaHION type is same as that of the 

actual parameter. 

Example : YilR A : SBH OP 1.,10| B ; SEH OP 5.. 50; 

* 

A : = A + B 
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Type of B must Be EELili; RillG-E compatible with the 
type of A since the operator is intended to be 
set union. 

Thus type compatibility checking of operand A 
with the corresponding formal parameter must synthesize 
a PROPAGATION type same as the type of A* 

(c,2), LST Propagation i 

PROPAGATION type is the list which is obtained 
during type matching of an actual parameter with the 
corresponding formal parameter. This is used only 
with the type compatibility checking of system 
defined procedures HEf and DISPOSE. 

Example j 

Same as T.2, 

Type compatibility checking for each actual 
parameter of system defined procedures HEW and 
DISPOSE synthesizes a list of values and sends it 
as PROPAGATION type for the type compatibility 
checking of successive actual parameters* This 
list consists of GASS constants encountered in the 
variant part at certain nesting level of the parent 
record structure specified by the first actual 
parameter. 

In our example type compatibility check of 
actual parameter P synthesizes a list consisting of 
values 1,2 and 3, 
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(c.3) CHANGE PROPAGA'IIQH 

It employes two de-rivation functions for 
synthesizii^ propagation type from the type (Tl) of 
actual parameter. 

Ihe derivation functions chosen on the basis of 
11 are as. follows : 

(1) If 11 is any structured type then the PROPAGAIION 
type is same as 11 with the packing information 
compleniented , 

(2) If 11 is any ordinal type then the PROPAGAIION 
type is made equal to SBl OP 11, It is used 
only .in the type compatibility checking of 
operands for the system defined operator IN. 

Example 1--5 

Yiffi. A : iHBiil [[1..10I] GHiH^ 

B : PACKED iiERilY 
I : IKGBEj 

PACK (A,I,B) 

Ihe actual parameter B must be JiRBJiJ CLASS compatible 
with the type derived from the type of A. Ihus type 
compatibility checking of actual parameters A must 
synthesize PROPAGAIION type which is same as type of 
A except the ARRAI PnCKIlG being changed from UNPACIffiD 
to P jiiCKED . 
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(d) Operands for dyadic operators must be compatible 
with each other apart from being compatible with 
the corresponding formal parameters of aperators. 
Example 1.4 ; 

ViR A ; SEl OF 1..20| I : INIBGERi 

# 

A ; = ii+I| 

Although the operands A and I are compatible with 
the corresponding formal parameters associated with 
the operator ’+*, this operator is not defined for 
this combination of operands-. 

Ihis conflict is resolved by employing a lattice 
structure of types (WAI 76, HEX 67) associated with 
each operator, 

2.2.2. SO LUIIOH ; 

2. 2. 2.1 Domains : Domains chosen for type compatibility 

checking are discussed II PUZ 81. 

2, 2, 2. 2; We design a mechanism which allows uniform handling 
of operand compatibility for user defined procedures 
(functions) as well as PASGiil defined standard 
procedures (functions). Operator Identification is 
resolved through the use of separate lattices for 
each dyadic operator that defines the possible types 
of each of the operands with respect to the type of 
the operator. 



lype compatibility call be viewed as operand 
c o mp at ib ili tyfor various OPEILilOR S . An OPER^iSOR 
may be one of the following t 

(1) user defined procedure 

(2) user defined function 

(3) System defined function 

(4) System defined procedure 

(5) System defined operator, 

ihe following is the description of implementation 
of type compatibility checks for various OPERATORS. 
User defined procedure s/fun ct ions 

Invocation of a procedure (function) is 
compatible with its definition if the corre ponding 
elements of the lists of formal and actual parameters 
are compatible. Ihere are three class of parameters 
for these OPERiifORS. lype compatibility criterion 
applied to them is as follows : 

Class of Parameter Pype compatibility criterion 

applied 


YM STRICT TIPS 

Yldjim iiSSIGSMERT 

Procedure — — - STRICT TYPE 

(function) 

System defined procedures i 

The type compatibility checking for user 
def ined procedures/functions is enhanced to handle 
the special features present in system defined 
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procedures/fuBctions or operators. As the PASOAl 
syntax for definition of procedures and functions 
does not allow the declaration of polyadic, polymorphic, 
default and formatted parameters, tjpe compatihility 
checking for user defined procedures (functions) 
remains the same without any conflicts with that of 
system defined procedures (functions). 

While enhancing the type compatibility 
checking for system defined procedures (functions) 
certain ambiguities have crept in our scheme. The 
following is a brief description of these ambiguities 
and the waW they have been resolved ; 

( 1 ) Default parameters : 

If a formal default parameter and its successive 
formal parameter are of the same type-, then our 
scheme for type compatibility checking cannot decide 
unambiguously the presence or absence of actual 
parameter corresponding to formal default parameter. 

In all system defined procedures (functions) 
a default parameter is never of the same type as its 
successive parameter, 

(2) i'ormatted parameter : While processing an expression 
in the actual parameter list of a system defined 
procedure, our scheme requires that we distinguish 
whether this expression is a new actual parameter or 
whether it denotes formatting information about 
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the previous actual parameter. This is resolved 
through PASO^iL syntax in specifying format of an 
actual parameter, i.e,, two actual parameters are 
delimited by ’comma’ whereas an actual parameter 
and its format are seperated by 'colon*. 

(e) S ystem defined functions and operators 

In this section we discuss the special feature 
req.uired for type compatibility checking of system 
defined functions/operators and the way they have been 
implemented in our scheme, 

1 . Operator Identification 

*in operator symbol may stand for more than one 
meaning depending upon type of its operands. Operator 
identification is discrimination betv'/een the various 
meanings of an overloaded operator symbol. 

Each operator is associated with a lattice of 
types jlHBX 673 • Each nods in this lattice has an 
associated "lattice value”. 

Type compatibility checking of each operand of 
an operator also generates a lattice value. After 
establishing compatibility of two successive operands 
of an operator with the corresponding formal 
parameters, the pair of lattice values generated are 
used to traverse the lattice associated with this 
operator. This traversal returns a lattice value 
which is a least upper bound of the input lattice values. 
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2!he resultajit lattice Talue conveys wither the 
combination of the operand types is valid for this 
operator. 

If the operand types are compatible with 
the corresponding formal parameters and the 
combination of operand types is meaningful for this 
overloaded operator then the particular meaning 
assigned to the operator is fouM out from propagation 
iype . 

ftesult tvne 

Ihe result type of system defined functions 
and operators may he polymorphic. Theoretically, 
the resultant lattice value, generated after processing 
the operand list, uniquely determines the result type 
of the operator. 

In our implement ion w© have not chosen an 
explicit lattice structure for each operator. Only 
four different lattice values are generated by type 
compatibility checlang of operands, liie lattice 
traversal routine, namely 'JOIN’, takes in combination 
of two such lattice values and Propagation type , It 
returns the resultant type of the operator and 
uniquely identifies an operator. 

The above scheme to handle type compatibility 
checidng for system defined functions aid operators 
does not conflict with that of user defined functions 
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(procedures). She lattice. ... i 

^ u.e zero (0) is aiwajs 
generated, while perforiniiio. . 

ype compaipi^pp^^y checks 

of actual parameters of 

o-e fined procedures 

(functions). In this case +v, 

resultant lattice 

Value generated by ‘JOIli* i 

® also *0* and result 

type for functions is found 

out from the definition 
of function name in symbol tabl 
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lAEBL p-ROOESSPIg 

^ ^ Structure of the Problem : 

Labels and GOlOs satisfy the following properties 

(1) The scope of a label is the BLOCK in which it is 
declared, 

(2) A label is defined by prefixing it to a statement 
(nest) and is considered as local to the nest within 
v^hich this statement occurs* 

(3) A label is visible only in the nest within which it 
is defined. 

3 .2 Solution ; 

The solution we present handles all problems concerning- 
local labels, i.e., their definition and check for valid 
reference. Vifith regard to global GOTOs, we restrict the problem 
to the definition of such labels in the outer most nest of 
their respective blocks. 

To solve this problem through L-BAG we have chosen 
following attribute domains. 

(1) LIST OR lilBELS : Two attributes of this domain are 
LECLilBiliS and DERLABBLS. DSGLilBELS Iseps the list 
of labels declared in a block, DEFLAEELS keeps the 
list of labels defined in the block. 






LABBLS-'TO-J'W ; A list of forward referenced labels 
along with the level of the nest in which it is used, 
S TACK OF LABELS ; It contains those defined labels 
which are visible in a nest. The level of stack 
denotes the level of the nest in which the associated 
labels are defined, 

STACK 01 DECLABELS ; It is the stack of DECLABELS 
which are accessible for referencing in the current 
block. 

The actions taken at different instances for 
solving this problem are as follows i 
On definition of a label ; 

The label must be local to the current block,. This 
is fulfilled by ascertaining that this label belongs 
to DECLABELS, i,e., <where label e DECLABE1S>. 

Unique Definition ; 

Disjoint union of DBPLy^JBELS with the label is taken, 
i.e., DEILABELS : = DEEL^lBSLS p label 3 . 

V alidity of forward reference j 

Forward references are detected by the presence of 
the label in LABELS -TO-jUly]?. For an instance of the 
label in LAEBLS-TO-JIBtP, its associated level value 
should be ec[ual to the level of the current nest. 

All forward references corresponding to this label 
are delected from LilBELS-TO-JIFIP . 


21 


^ ^ ^ reference to a label ; 

Scope check: : The label must be in the STACK OK 

DEGLA2E1S. 

(b) If the label belongs to lEKLABELS then it mast belongs 
to STACK OP LABELS thereby satisfying the visibility 
criterion. 

(c) If it is a forward reference, i.e., the label does 
not belong to DEPLAEBLS, then it is put in the 
LABEL S-TO-JUKP with the information of the level of 
nest, 

(3) On EBB OP Nest 

The level information associated with each label 
forward referenced in this nest is set to the nesting 
level of the enclosirg nest, 

(4) On start of nest ; 

The level of nesting is increased by 1 on entry 
to any nest, aid is passed as inherited attribute to 
the nest. 

If the nest is a statement sequence, the level 
of nesting passed to it is the same as that of enclosing 
nest. If the nest is a con^iound statement, and the 
enclosing nest is the statement part of a block, 
then again the same nesting level is -passed. 

(5) On end of scope : 

(a) All labels declared in the current block must have 
been defined, i.e., they must belong to LEPLABELS, 
(Warning is given if a declared label does not belong 
to DEPLiiBBLS). 
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(b) All labels declared in the current block are delected 
from 

(6) At the end of procedure (function) declaration : 

LABELS-lO-JUEffi obtained as the synthesized attribute 
from the procedure (function) declaration is appended 
to the LAS5LS-T0-JIIT.IP list of the current block* 
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^ ^ Structure of the problem : 

Aliasing can be thought of as an object having multiple 
names. We are concerned with aliasing of variable, 2hus for 
our purpose aliasing is the referencing of a memory location by 
more than one- name. Ihus memory location contents can be 
modified by assignment to its intended name as well as to one 
or more of its aliased names. Ihis may result in unespected 
changes in the value of a variable. 

Here we design a scheme which allows modification of 
contents of memory location only through assignment to its 
intended name. The intended name is taicen as the one 7;hich is 
declared closest to the point of modification of the value of 
the variable. 

Causes of Aliasing ; 

Aliasing may arise in the following cases ; 

(a) When a variable which is global to the called procedure 
is passed as actual VAR parameter to this procedure, in 
the block of called procedure both names refer to the same 
memory location, 

(b) When the same variable is passed as two actual VAR parameters, 
in the block of called procedure the corresponding formai 
parameters refer to the same memory location. 
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4,2 Solution 

Yarious domains used in solving the prohlem of 

aliasing are as follows : 

(1) ^SlOflS l : Attribute variables GLOBALYASLST and 

REE'LSl belong to this domain. GLOBALYAEliSir contains 
list of all the global Variables modified in the current 
block. REBLST is the list of the actual YAH parameters 
which are global to the called procedure. 

(2) QUALIBUSf : Attribute variable EEBISTBLBM belongs to 
this domain. It contains. a variable which is an element 
of GLOB.-'f[iYmSl or EEPIS'I. 

(2) RBBIaBlLEIM O : EBBlilELB is the- attribute variable 

belonging to this domain. It contains the information 
about aliasing of all the procedures defined and declared 
in the current Block, 

(4) STACK OB EEBlABLEIilB O : It keeps the information about 

aliasing of all the procedures which are visible from the 
current Block, 

To recognise aliasing the following actions are 

performed at different points of parsing. 

(1) On encountering an assignment statement j 

(a) If the current block is a function block then no action 
is taken as we attempt to check that functions are 
side-effect free. 


(b) Ihe current block is a procedure block and the 
variaDle on the L.H.S. of an assignment statement 
is global to the Block : 

Bnepare a EEBISITELEM consisting of the 
pualifiod name of the variable and append it to 
GlOBiiLVilElSl, 

^ ^ ^ encountering a procedure call : 

(a) If the block of the called procedure is already 
declared then the actions taken are s 

(i) Find GlOB/iLVjlBLSir of the called procedure from 
the SIAGK OF REF'JIIBLEINFO. 

(ii) For each actual ViiE. parameter which is. global 
to the Called procedure the follovi/ing action is 
taken : 

EEPISIELEM is prepared for this parameter, 
te take intersection of REFLSIELEM and GlOBillYilHLSf 
(found in Step (i)). ^he intersection should be 
nil for the case of no aliasing, 

(b) If the block of the called procedure is not yet 
declared then the following actions are taken i 

(i) Prepare EEFIST for all the YAR parameters which 
are global to the called procedure. 

(ii) .Put REFISl in the stack of S.EF1ABLEIIF0 associated 
with the called procedure name. 

^ ^ ^ kt the end of a procedure block : 

In case there have been calls to this procedure 
before its body was processed then the following actions arc tanen: 
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(a) liie REPLST associated, vvith the procedure name is 
found out from the stack of HER TABLE IKS' 0. 

(h) We take the intersection of this REPLST with the 

GLOBiLVAELS'T prepared in the body of this procedure# 
'Variables common to the two lists are aliased names, 
(c) The GLOBALVARLST prepared in this block is kept with 
the procedure name in the stack of REE TAEL EIIEO. 

In addition, a list of all actual, var parameters is 
prepared on the call of a procedure so as to detect duplication 
of VAR parameters. 

This scheme does not recognise aliasing due to 
propagation which may occur because of the following reasons ; 

(1) Yfhen a VAR formal parameter is passed as a VAR actual 
parameter to an enclosed procedure block. 

When a procedure or function is passed as an actual 
parameter. 


( 2 ) 



CHAP TEE 5 


SPECIAL CASES 


This chapter briefly presents some other special cases 
we have come across while performing context sensitive analysis 
in PASCAL programs. These problems ale not well formalized and 
■they are mainly pertain to our implementation. 

^ • Type compatibility checks for recursively defined data 
structures : 


Examp le 
Type Nodel 
Nodes 
Name 
lodes 


= j. Hode3| 

= t Node4:j 

= Packed ilrray Cl .. 53 of char: 
= Record 

lodname : Namei 
LPTR : lodel 
BlDs 


lode 4 = 'Record 

lamel ; lame? 
lextptr ;Node2 
EID? 

Tar Testl ; lodel; Test 2 ; lode2; 


Testl : = Tests 

The normal scheme of type compatibility checking of 
Testl. and Tests requires type compatibility of lodel and lode2 
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which further requires type compatibility of Nodes ard Node 4. 
This turn requires type compatibility of Nodel and Node2 
resulting in a cyclic process with no termination. 

We modify the type compatibility cheeking as follows ! 
Attribute domains chosen for this purpose are 

a) SAFE : SiEELST is an attribute variable of this domain, 

b) PTRBNVIRONIffiNT : ADDEESSl and ADDEESS2 are attribute 
Variables of this domain. 

These domains are utilised in our scheme to tackle 
the above example as follows : 

The type compatibility checking of Nodel and Node2 
is done as follows : 

Since both are pointer types the address information 
is taken out from the type domain of nodel and node2. Their 
addresses are ADDRESS (NodeS) ani ADDRESS CNode4). This tuple 
of addresses is searched in SAEELST. if present then they are, 
assumed to be compatible. Otherwise that tuple is appended to 
the Sa^ELST. 

5.2 Il legal use of control variable of a for loop within the 
Toop . . ~ 

A control variable used in the for statement shall fulfill 

the following cri ter ions : 

(1) The variable must have been declared in the Yiffl declaration 
part of the current block, 

(2) No assigning reference to control variable shall be made 
within the for loop. 
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4,2.1 Solution 

She KIKD attribute of all the variables declared 
in YAR declaration part is ViiBR, The level of the block in 
which the variable is declared is also stored along vith the 
variable. Therefore the KIMD attribute of for loop variable 
will be YIJYR and its level must be same as that of current 
block. At the start of for loop, KIKD of control variable 
is changed to GONTViiE, Assigning reference to a variable of 
KIITD OONTViiR is not allowed. At the end of for loop the 
attribute KliG) of the control variable is again changed to 
HAIR, thereby allowing assigning reference to it beyond the 
scope of the loop. 

^ Ibe illegal use of with record variable inside with 
statement : 

5,3,1 S tructure of problem : 

With record variables must not be modified 
inside with statement, as it may result in undesirable effects. 
Example 

Type Hodeptr = .Hode^ 

Hode = Record 

name ; Array of char I 

IPTR, EP'TR : Rodeptr 

end? 

var p,(i : Hodeptr ? ElAG : Boolean? 

• . ■ . . . • 
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with p + do begin 

FLAG : = LEGE I 

vvliile (p ^ NIL ) iiHD FLAG do begin 

If NiU/E ^ 'JJ « , then FLAG: = FilLSEj 

F: = RPIR 
end I 

In this program, intention is to traverse a list headed 
initially by *p’. But it results in infinite looping becau.se 
’RPIR' is always the same i.e, *EPTR’ of head of list, She 
local environment accessible inside a with statement remains 
unchanged even though an assigning reference to with record 
variable is made. Therefore any such attempt to change the 
local environment must be detected and properly warned, 

5.3.E Solut ion : 

Domains used for this purpose are : 

(a) LSIOFLSI : WIliiLSl is an attribute belonging to 
this domain. It is a list of all the record 
Variables which control the local environment 
accessible inside with statement. 

(b) FIRQmiE’ILSl : WIlIILSmBM is an attribute of 
this domain. While processing the assigning 
reference to a variable WIIHLSIELBM stores the 
GLualified name of that variable. 

Actions taken during different points of parse are; 



(1) On start of with statement : 


WITHLST is extended hy with record variables which 
specify the local environment accessible to the nest to 
follow* 

(2) On assigning reference to a variable i 

A WII'HLSIELBM is prepared and an instance of this is 
searched in the wllHLSl* If search succeeds then error 
message is given. 

( 3 ) On end of with statement : 

All the with record variables which governed the 
current nest are deleted from the WIIHLISI. 




OiUBTER ¥I 


EPILOGUE! 

The aim of this project was to obtain a formal basis 
for the specification of the static context in PASCiL programs 
and provide a basis for the conversion of the specification 
to program. We have been motivated to use L-EAGs because of 
their adaptability to LL(l) parsing ; 11(1) provides a general 
basis for the structure of the program, in which is embedded 
the checks of static context obtained through L-EAG specification. 

Our experience is that the articulation of the L-EAG 
specification helped clarify several deep issues in tlB 
programming language PASCAL, The 1-EAG used proved to be 
extremely concise at the same time completely defining the 
the context-free and context-sensitive syntax of Pascal, The 
underlying context free syntax was clearly visible, Ihe 
conciseness stems mainly from the freedom to choose any suitable 
domains and operations for the attributes, and the ability to 
use attribute expressions freely in the semantic rules* 

With regards to rules of transformation which convert 
L-EAG specification to Pascal programs, the following observations 
are in order : 

(a) Proper use of nesting of generated procedures can help 
in increasing the efficiency of the resultant program* 
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(t) Aids to perform L-BAG- to L-EAG- transformation so 

that the resultant specification is efficient with 
regards to its utilization of attributes would be 
of great value. . 

(c) The transformation rules that we have given pertain 
to Attribute Grammar and they need careful adaptation 
to L-EAG. 

The articulation of I -BAG specification, transformation 
rules and Pragmatic Transformation Strategy used greatly 
facilitated in hand coding the program with confidence. The 
following observations are made in coding of this program : 

(1) Most of the bugs in the resulting program 
originated from the improper initialization of POUTERS v^hich 
were elements of newly generated objects of various domains. 

In retrospect, it would prove fruitful to vsrite an allocation 
procedure for every dynamically creatiable domain element so 
that the component pointers can be appropriately initialized, 

(2) Use of identifier names too close to tiB standard 
names in PASCAL should be avoided as far as possible, Por 
example we have used ORD as a field name in a record structure. 
Thus inside a with statement, wherein the local environment 

of this record can be accessed without qualification, the 
standard function ORB cannot be used. 
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(3) We have used files as a way out of the garbage 
collection problem whenever the end of a scope is encountered. 
This is becaus® of forward references to objects yet not 
defined within the scope. This icple mentation strategy can 

be avoided if all newly allocated domain objects are linlisd 
with respect to their logical use. Garbage collection will 
merely involve the recycling of livsts no longer needed. Proper 
inplementation of this strategy would req_uire central allocation 
and deallocation routines for domain elements. 

(4) The ISO standard for PASOiL tightens several 
context-sensitive constraints imposed on a program. Almost 
all Pascal programs of any conseq.uence do not satisfy the 
constraints imposed by ISO standard. The commonly detected 
errors by our processors ai^e : 

(a) Improper uses of labels and goto's 

(b) Modification of with EECOKD variables encountered 
in WITHLIST 

(c) Aliasing 

(d ) Use of globally declared variables as control 
■variables in POR STMT. 

We feel that some of these errors are reported because 
of tiB strictness of the constraints and not becau.se of poor 
programming practice. 
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finally though we have derived p^SOil 

out ob^^atloua regarding tranaf creation rulaa etc 

- opeciiic to P.sa^. we .eeX that .ery einiXar etratJIiee 
ana macn of what w8 have discu.... • . . 

'tvoed' r applicable to contemporary 

typed, programming languages. 
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APPENDIX 2 


The following is a list of attribute variables used 
in the L-EAG groductions together with their domains s 
SYMBOL TABLE : Glooaltab Ic,, Symboltable, Symboltablel, 

Syrrboltablrout, Sjimboltablein, Symboltablemid;' 
BLKINFO : Blc ::kinf o 

QUAiLIFYLST : G1 Dt.-.list .lement, Reflistelement 

QUALSTELEM : LoclsteJ.em, curlstelem 

ENVIRON : Localtab.] •' local tableconst, localtableconstl^ 

Localttbr 30 'inst2, Tabledefin# Tabledefout* 
Tablet ypc^ "abletypeindei'C, Recordtablein, 
Recordtabr.. io'it^ Recordtablesection^ Tabletypei# 
Recordtablevariant/ Tabletypeout# Proctablein# 
Proctable, Proctableout Proctablel, 
Proctablemid, proctablel^ Localtablehead# 
Address, Localtablevar, Local tableproc# 
Functable'.' 

MODE : Mode, ExpmoSoi^ paramode, simgmode 

KIND : Kind, Modekind, Calledprockind, parentkind, 

parameterkind 
KINDTAGTYPE : Kin^tag, 



PLAN 


taglsttype 

taglstelem 

VALLSTTypE 

TYPE 

PACKINGTYPE 

TYPEfiCTUAL 


ORDTYPE : 
NAMELSTTYPE * 

PANGETYPE t 
BTMPTRTYPE i 
VALUEPTRLSTj 


s Layout/ layln, Layoutsection/ Pl^z Planin/ 
Planout/ Foirmaloctualtypelist/ Remformalactualtyp^ 
list, Formaltypeactuallistin./ Fomaltypeactu^ 
listr ut 

* Tagi:, 3t/ Taglistotit# Tagiisti 

* Tagistelemenfc 

' Tagi..stvalue/ Tagiistvaluel/ Gaseccnststilstl/ 
Casecaistantlist/ caseconstlist2/ Tagvaluelist, 
Taglistvaluein, Tagiistvalueout 

* Type# ccmponentype^domptypo/ filedomain/ 
domaintypo/ element type / recordtype 

s Parentpacking/ packing/ selfpacking 
5 Consttype/ Actualtypearray/ Indextype/ Actualtypa/: 
Tagtypeactual/ Typeactual^ Resulttype/ 

Propagatedtypeactual, Propagationtypeactual, 

Propagationtypeactualmid/ Typeactuall/ 

Typ©actual2 

Ordinal/ oxrdinall/ Qrdinal2 

Filestocheck/ Remfiles/ Identifierlist/ Name- 
list/ Remfi' lestocheck/ pa rameterlist 
Rangel/ Range2 
Btn^r 

variantaccesslist/ variantaccesslistin 


DISCTYPE 


: Discrj.minaticn 



FORMALPARTYPE 


i Formalparvar 


COMSIMPLSTTYPE: Combinedslmplelist 


COMSIMPLETYPE 


simple 2 


S3MPLSTTYPE : Simplelist 


simpletype 


: Simple, Simplel, Simple2 


CRITERION 

REFTABLEINFO 


REFTABLEELEM 

lstoflst 


modelsttype 

STACKLBLTYPE 

LBLLSTTYPE 


ADRLIST 


s Criterion. 

= Reftableblook, Reftableout, Reftableto, 
Reftableoutl, RGftableout 2 
: Reftableelementin, Reftableelementout 
s Reflst, Gloliist, Globvarlstl, Globvarlst2, 
Globvarlstraid, Withlist, Globalvarlist, 
Globaliist, Withlistl, Withlist 2 , Withlistmid 
Parameterlist, Parameterlistmid, Varlistin, 
varlistmid 
; Actualmodes 

: Globallabels, Stackoflabels,stackoflabolsl, 

Stackoflabelsin 

: Local labels^ Decllables, Decllabelsl, 
Decllables 2 , Decllabelsin^ Decllablesout 
s Ptmames, Ptmarnesdef, Ptmanesout, 


Ptmamessection 



SAFETYPE 


LABIEUMPTYPE 

name 

BOOIjEAN 


t Safely Safe2, Safemid/ safe3 
: Labelstojum;^, Labelstojvimpl, Labelstojun'tp2^ 
Labelstojumpin/ Label stojumpout 
: Procname, ' Funcname, Name, Idname 
; Typevarflag, Fileselect# Fixpart, Formaltag, 
Forwardflag, Presenceflag, Withtag, 
varaccesstag, Errinexp, Mismatch, Escitflag,? 
Errsuppress 


INTEGER 


: Level, Blocklevel, Withblhlevel, Nestinglavel, 
Procblocklevel, Calledproclevel, Latticevalue 
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